home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / r_s restore (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  500b  |  14 lines
  1. 5 printchr$(147);"     reading data..."
  2. 10 ck=0:poke53281,6:poke53280,14
  3. 20 fora=679to715:read d:pokea,d:ck=ck+d:next:poke49153,0
  4. 30 if ck<>2921then print"error[146] in data statements"
  5. 35 fl$="r/s restore 2":goto50
  6. 40 printchr$(147);" load:";:open9,0,0:input#9,fl$:close9
  7. 50 printchr$(147);"load"+chr$(34)+fl$+chr$(34)+",80 rem"
  8. 60 a$=""+chr$(13)+chr$(13)+"sys689"+chr$(13)
  9. 70 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1:clr:new
  10. 100 data 169,1,133,204,76,113,168,0,0,0
  11. 101 data 169,234,141,40,3,169,167,141
  12. 102 data 2,3,141,22,3,141,24,3,169,2
  13. 103 data 141,3,3,141,23,3,141,25,3
  14.